TITLE INTEIROS
.MODEL SMALL
.STACK 100h
.DATA

CR EQU 0Ah
LF EQU 0Dh
B DB ?
X DB ?

.CODE
MAIN PROC

MOV CX,99d
MOV X,30h
MOV B,31h

MOV AH,2

FOR:

MOV DL,X
INT 21h
MOV DL,B
INT 21h
MOV DL,CR
INT 21h
MOV DL,LF
INT 21h

CMP B,39h
JGE VAI_UM
JMP CONT

VAI_UM:

INC X
SUB B,10d

CONT:

INC B
LOOP FOR

MOV AH,4Ch
INT 21h

MAIN ENDP
END MAIN